home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 1 / Gekikoh Dennoh Club Vol. 1 (Japan).7z / Gekikoh Dennoh Club Vol. 1 (Japan) (Track 1).bin / tools / xb / sample / halftone.bas < prev    next >
BASIC Source File  |  1995-06-17  |  476b  |  21 lines
  1.  
  2.  /* 半透明機能
  3.  
  4. screen 1,1,1,1
  5. v_priority("tgs")
  6. palet(2,rgb(0,31,31)) /* 半透明時に使用されるパレット
  7. palet(3,rgb(0,31,31))
  8. apage(0):vpage(15)
  9. fill(100,100,199,300,3) /* 奇数パレットで半透明指定
  10. fill(200,100,300,300,2)
  11. color 7
  12. locate 0,12:?" 半透明のテスト 半透明のテスト 半透明のテスト 半透明のテスト";
  13. color 3
  14. locate 0,0:?"何か押して下さいな";
  15. asc(inkey$)
  16. v_priority("gts")    /* GRAPH > TEXT > SPRITE
  17. asc(inkey$)
  18. v_special(2)    /* 半透明！
  19. asc(inkey$)
  20. end
  21.